home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / twview93.zip / CONFIG.INC < prev    next >
Text File  |  1992-03-11  |  721b  |  17 lines
  1. procedure configstuff;
  2. { procedure essentially from the net }
  3. var
  4.   line : string;
  5. begin
  6.   writeln('Eventually, there will be several configuration options available.');
  7.   writeln('First is the option of monochrome -- if you load GRAPHICS.COM');
  8.   writeln('your print screen will work.  (Also good for laptop VGA screens.');
  9.   write('Do you want a Monochrome display? [N] ');
  10.   readln( line );
  11.   mono := not ( (line='') or (upcase(line[1])='N'));
  12.   writeln('Port displays can have rather full lines: you can switch to');
  13.   writeln('compact codes to get more per line.');
  14.   write('Do you want compact sector description codes? [N] ');
  15.   readln( line );
  16.   verbose := (line='') or (upcase(line[1])='N');
  17. end;